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MODULE MOUNT ( ( 32 
DENT UAGE | Nirenttht ), 


~—— 


BEGIN 


' 
PASSES ELSESLST EISELE TTT c ci TTT C TCT CCPC TTT TTT TT TTT TIT iii iii tl 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS S.*TWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCOR ones WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t* INCLUSION OF THE ABOVE a ghd NOTICE. THIS SOFTWARE OR ANY 


® 
*® 
t 
® 
* 
* 
® 
. 0 * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
'* ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'* CORPORATION. ® 

® 

*® 

* 

* 

*® 

*® 


!* DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH I 


SNOT SUPPLIED BY DIGITAL. 
PETITTITITILI LILI LILI LILLIE LILI LITTLi TT TiTiTiTTTiTittiTTTTTttie 
i++ 
FACILITY: FI1IACP Structure Level 1 
i ABSTRACT: 
This routine performs the MOUNT function. 
i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 10-May-1978 14:12 
i MODIFIED BY: 


A0100 ACG0001 Andrew C. Goldstein jeopet 1978 20:01 
Previous revision history moved to F11A.REV 
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LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
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REQUIRE "SRCS$:FCPDEF .B32'; 


1 
1 FORWARD ROUTINE 

1 main MOUNT routine 

1 SET_MOUNTED; | eet neunted bit in UCB 


eee ee Rea 
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T these -1984 01:11:59 VAX-11 Bliss-32 V4.0-742 Page 3 
YOL~000 12-8 08- 1 She 539528 DISKSVMSMASTER:CF11A.SRCJMOUNT.B32;1 . (2) 
65 GLOBAL ROUTINE MOUNT = 
ef ‘oe 
! 
$9 | FUNCTIONAL DESCRIPTION: 
71 i This routine performs the MOUNT function. It checks that the ACP 
is of the correct type and then turns on the mounted bits in the UCB. 
74 i 
75 | CALLING SEQUENCE: 
? MOUNT () 
7 i INPUT PARAMETERS: 
4 NONE 
1 i IMPLICIT INPUTS: 
8 NONE 
84 i QUTPUT PARAMETERS: 
# NONE | 
& i IMPLICIT OUTPUTS: 
3 NONE | 
90 i ROUTINE VALUE: 
91 NONE 
9 ! SIDE EFFECTS: 
i 
x 


BEGIN 
EXTERNAL 
QUEUE _HEAD : REF BBLOCK; ! ACP queue header 


! Check the ACP type code in the AQB, having been set by the MOUNT command 
: to indicate the nature of the device. 


IF .QUEUE_HEADCAQBSB_ACPTYPE] NEQ AQBSK_F11V1 

THEN ERR_EXIT (SS$_WRONGACP) ; 

KERNEL_CALL (SET_MOUNTED); 

RETURN 1; 

END; ! end of routine MOUNT 
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-TITLE vd 
-IDENT \v04-000\ 


-EXTRN QUEUE_HEAD, SYSSCMKRNL 


dD 5 
1erSep=1986 12:29:65 DISKSUMSMASTERSCFTIA.SRCIMOUNT..032:1" °° (25. 


-PSECT waar 2 


0000 00 -ENTRY “pane nothing : 0378 
ee at ae be 
031¢ $F f G00p CHAU #796 ; 0422, 
bis )6=6hRee OU g 0426 
0000v cf F 0016 PUSHAB SET _MOUNTED : 
000000006 9F 3 FB OOOIA CALLS #3, ~a#SYSSCMKRNL : 
50 01 b0 90021 MOVL #1. RO : 0426 
4 00024 RET ; 0428 


; Routine Size: 537 bytes, Routine Base: S$CODE$S + 0000 
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; FUNCTIONAL DESCRIPTION: 


This routine sets the mounted bit in the UCB. 


= POPIPOPOPOPUPIPIPUPUPUNINURD 2 2 = tt tt 


CALLING SEQUENCE: 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
CURRENT_UCB: address of device UCB 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
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04 

04 

04 SIDE EFFECTS: 

04 mounted bit set 

04 

04 a 

04 

04 BEGIN 

04 

04 EXTERNAL 

Bee CURRENT_UCB : REF BBLOCK; ! UCB of device 

046 ‘ 

0467 ' Set the bits in the UCB. 

ae 

0470 CURRENT_UCBCUCBSL_DEVCHAR] = .CURRENT_UCBCUCBSL_DEVCHAR] OR 
94671 (DEVSM_MNT OR DEVSM_DIR); 

bé7§ RETURN 1; 

0475 END; ! end of routine SET_MOUNTED 


.EXTRN CURRENT_UCB 
0000 00000 SET_MOUNTED: 
WORD 


. Save nothing ; ok 94 
38 0 0008 $8 ; i 08 $009 Brst2 ; at + BtrGs : reat 
4 1 pO 0000F MOVL #1, RO- > 0473 


NN sss... >5.°..c._» rr — ————EEEee = 


$=3 -1984 :5 VAX-11 Bliss-32 V4,0-742 P 

r$-sep-1 984 Foiee pT bimGmaS fencer tia, se gmounr.e32:1°°%° aS 
04 00012 RET 3 0475. 
; Routine Size: 19 bytes, Routine Base: S$CODES + 0025 


7 } 
7 | 
ar? le 0 EN OOM 
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3 PSECT SUMMARY 

: Name Bytes Attributes | 
: SCODES 56 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics | 
Rein) oS Se eee Syabols ocoecooe- Pages Processing 

5 File Total Loaded Percent Mapped Time 

e | 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 7 0 1000 00:01.9 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:MOUNT/OBJ=OBJ$:MOUNT MSRC$:MOUNT/UPDATE=(ENHS$:MOUNT ) 

; Size: 56 code + 0 data bytes 
3; Run Time: 
3; Elapsed avage 00: 17.0 

3; Lines/CPU Min: 72! 3 

3 ponenne/<P-Aig: 1152 | 
3 pom Used: 58 pages 

; Compilation Complete 


L EQUIPMENT CORPORATION 


O16 AH-BT13A-SE 
ENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


